﻿Public Class PersonelBolgeBazinda
	Inherits ProcessReport

	Dim ExcelBaslik As String = ""
	Dim Rs2 As Recordset
	Dim PerList As Recordset

	Public Overrides Sub GenericEvent(ByVal e As ProcessEventArgs)


		Select Case e.EventType
			Case EventType.Initialize
				Text = "Bölgelere Göre Personel Dağılımı Raporu"
				AddCombo("Sube2", "Şube", "0,(TÜM ŞUBELER)|1,LEFKOŞA|2,GİRNE|3,MAĞUSA|4,İSKELE|5,GÜZELYURT|6,LEFKE|7,MERKEZ", "width=15", "0")
				AddCombo("PerTip", "Per/İşçi", "0,Personel|1,İşçi|2,TÜMÜ", "width=10", "2")
				AddCombo("OrderBy1", "Sıralama1", "0,Sicil No|1,Soyad Ad|2,Ad Soyad|3,Şube|4,Mevki|5,Tayin Tar", "width=10", "3")
				AddCombo("OrderBy2", "Sıralama2", "0,Sicil No|1,Soyad Ad|2,Ad Soyad|3,Şube|4,Mevki|5,Tayin Tar", "width=10;nl", "2")
			Case EventType.Export
				Rs.Export(ExcelBaslik)
			Case EventType.ValidateForm
				Dim orderBy As String = Choose(CInt(Input("orderby1")) + 1, "perno", "soyadi, adi", "adi, soyadi ", "gorevyers", "mevkikod", "tayintar") & _
						  "," & Choose(CInt(Input("orderby2")) + 1, "perno", "soyadi, adi", "adi, soyadi ", "gorevyers", "mevkikod", "tayintar")
				Dim PersIsci As String = Choose(CInt(Input("PerTip")) + 1, " and SUBSTRING(perno,2,1)='P'", " and SUBSTRING(perno,2,1)='I' ", "")

				PerList = Personel.BolgeBazindaPersonelDokumu(Remote, PersIsci, orderBy, Input("Sube2"))

				If PerList.EOF Then Warning("Kayıt bulunamadı.") : Focus("Sube2") : Exit Sub
				Buttons.Show("Export.Reset")
				Landscape = True
				Report.Exports = True
				e.Result = True
			Case EventType.Export
				Rs.Export(ExcelBaslik)
			Case EventType.ReportHeader
				Dim bolge As String = Choose(Input("Sube2") + 1, "TÜM ŞUBELER", "LEFKOŞA ŞUBESİ", "GİRNE ŞUBESİ", "MAĞUSA ŞUBESİ", "İSKELE ŞUBESİ", "GÜZELYURT ŞUBESİ", "LEFKE ŞUBESİ", "MERKEZ")
				ExcelBaslik = bolge & " PERSONEL DÖKÜMÜ"
				Report.SkipLine()
				Report.NoPageNumbers = True
			Case EventType.PageHeader
				Report.PrintPageHeader(ExcelBaslik)
				Report.SetColumns("Sıra;Pers. No.;Ad Soyad;Mevki Adı;Hizm. Sınıfı;Derece;Barem;Tayin Tar.;Şube", "2;3;9;10;10;2;4;3;4", "r;r;l;l;l;l;l;r;r", "--")
			Case EventType.ReportDetail
				Dim Sayac As Integer = 1
				Do Until PerList.EOF
					PerList("barem") = PerList("barem").ToString.Replace("-", ",")
					Report.Print(Sayac, PerList("perno"), PerList("adi") & " " & PerList("soyadi"), _
						PerList("mevkiadi"), PerList("hizmsinif"), PerList("derece"), PerList("barem"), PerList("tayintar"), _
						Choose(PerList("gorevyers") + 1, "TÜM ŞUBELER", "LEFKOŞA", "GİRNE", "MAĞUSA", "İSKELE", "GÜZELYURT", "LEFKE", "MERKEZ"))
					Sayac += 1
					PerList.MoveNext()
				Loop
		End Select
	End Sub

End Class
